home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-readerstuff-
/
paul_bray
/
e-stuff
/
examples
/
pythatest.e
< prev
next >
Wrap
Text File
|
1999-11-30
|
199b
|
11 lines
MODULE 'pauls/pytha'
PROC main()
DEF f,s[12]:STRING,s2[12]:STRING
f:=fHyp(20.0,24.0)
RealF(s,f,4)
RealF(s2,fSide(f,20.0),4)
WriteF('Find Hypotenuse of 20,24: \s\nFind the side: \s\n',s,s2)
ENDPROC